COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE AD
C00004 00003	SW10:	GO 3,@[.+1]		EXIT USER IOT MODE.
C00006 00004	PDP-6 SPACE WAR JOB.
C00007 ENDMK
C⊗;
TITLE AD
	.INSERT M

	EXTERNAL DPYSET,DPYBUF,DPYOUT,AIVECT,AVECT
	EXTERNAL OCTDPY,DECDPY,FLODPY,DPYSTR,DPYBIG
	INTEGER SYSPI,HUNG,MISSED,POT21,CNT6
	INTEGER BP1,BP2,BP3

PDL10:	BLOCK 20	;SPACEWAR-10 PDL
PDL6:	BLOCK 20	;SPACEWAR-6  PDL
PDL:	BLOCK 20	;USER MODE.

SA:	RESET↔DPYPOS -100↔DPYSIZ 12000
	LAC P,[IOWD 20,PDL]
	CALL(DPYSET,DPYBUF)
	CALL(AIVECT,[-=400],[0])
	CALL(AVECT,[=400],[0])
	CALL(AVECT,[=400],[=400])
	CALL(AVECT,[-=400],[=400])
	CALL(AVECT,[-=400],[0])
	CALL(DPYBIG,[4])

CALL(AIVECT,[-=360],[=350])↔CALL(DPYSTR,[[ASCIZ/SW EXECUTIONS /]])
CALL(AIVECT,[-=360],[=300])↔CALL(DPYSTR,[[ASCIZ"A/D HANGS"]])
CALL(AIVECT,[-=360],[=250])↔CALL(DPYSTR,[[ASCIZ"A/D DATA MISSES"]])

CALL(AIVECT,[-=360],[=150])↔CALL(DPYSTR,[[ASCIZ/POT17 COHU FOCUS/]])
CALL(AIVECT,[-=360],[=100])↔CALL(DPYSTR,[[ASCIZ/POT20 COHU TILT /]])
CALL(AIVECT,[-=360],[=050])↔CALL(DPYSTR,[[ASCIZ/POT21 COHU PAN  /]])

	CALL(DPYOUT,[0])

	SPCWAR 4,SW6
	LAC [XWD 400017,SW10]↔SPCWGO
	INCHRW↔CAIE "E"↔GO .-2↔EXIT

SW10:	GO 3,@[.+1]		;EXIT USER IOT MODE.

	LAC P,[IOWD 20,PDL10]
	CALL(DPYSET,DPYBUF)
	CALL(DPYBIG,[4])

	LDB [POINT 12,POT21,11]↔ROT -=12↔ASH -=24↔DAC TMP1#
	LDB [POINT 12,POT21,23]↔ROT -=12↔ASH -=24↔DAC TMP2#
	LDB [POINT 12,POT21,35]↔ROT -=12↔ASH -=24↔DAC TMP3#

	CALL(AIVECT,[-=50],[=350])↔CALL(DECDPY,CNT6)
	CALL(AIVECT,[-=50],[=300])↔CALL(DECDPY,HUNG)
	CALL(AIVECT,[-=50],[=250])↔CALL(DECDPY,MISSED)

	CALL(AIVECT,[-=50],[=150])↔CALL(DECDPY,TMP3)
	CALL(AIVECT,[-=50],[=100])↔CALL(DECDPY,TMP2)
	CALL(AIVECT,[-=50],[=050])↔CALL(DECDPY,TMP1)

	CALL(DPYOUT,[1])
	DISMIS
;PDP-6 SPACE WAR JOB.
SW6:	AOS CNT6

;READ THE COHU POTS.
	CONI 204,SYSPI		;SAVE THE SYSTEM 136 PI.
	CONO 204,4250		;INIT THE 136: INPUT 12 BIT BYTES FROM DEVICE 5.
	CONO 424,172030		;INIT THE A/D: CHANNEL 17 SPEED 3.

;WAIT FOR 136 TO FINISH OR DATA-MISS OR HANG.
	MOVEI 100
L1:	CONSZ 204,1B26↔GO DONE
	CONSZ 204,1B23↔GO MISS
	SOJGE L1↔GO HANG

HANG:	SETZM POT21↔AOS HUNG↔GO L9
MISS:	SETZM POT21↔AOS MISSED↔GO L9

DONE:	DATAI 204,POT21
L9:	CONO 424,4000		;STOP A/D.
	CONO 204,@SYSPI		;RESTORE SYSTEM'S PI.
	DISMIS

END SA